Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A408A.CMD < prev next >

Wrap

Text File | 1987-01-01 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 408 │" locate 0,8 message s8 locate 0,17 message "│ San Jose, CA │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- NET WORKS Computer Emp . 227-5416 V- ........................ ...-.... ║" message "║ B- RCP/M RBBS Datatech #7 . 238-9621 W- ........................ ...-.... ║" message "║ C- Buccaneer's Harbor II .. 243-2370 X- ........................ ...-.... ║" message "║ D- EBBS A&K Computers ..... 244-4816 Y- ........................ ...-.... ║" message "║ E- AMIS Grafex ............ 253-5216 Z- ........................ ...-.... ║" message "║ F- Ampro Users BBS ........ 258-8128 0- ........................ ...-.... ║" message "║ G- SJ HUG ................. 262-5150 1- ........................ ...-.... ║" message "║ H- RCPM RBBS Piconet #4 ... 281-7059 2- ........................ ...-.... ║" message "║ I- Modem Magazine ......... 289-9151 3- ........................ ...-.... ║" message "║ J- AMIS IBBBS ............. 298-6930 4- ........................ ...-.... ║" message "║ K- RCPM RBBS DBase II ..... 378-8733 5- ........................ ...-.... ║" message "║ L- Public Domain Software . 735-7190 6- ........................ ...-.... ║" message "║ M- Rontech RBBS ........... 773-9880 7- ........................ ...-.... ║" message "║ N- Split Infinity ......... 867-4455 8- ........................ ...-.... ║" message "║ O- AMIS TABBS ............. 942-6975 9- ........................ ...-.... ║" message "║ P- North San Jose BBS ..... 945-8358 @- ........................ ...-.... ║" message "║ Q- Fido # 346 ............. 972-8164 #- ........................ ...-.... ║" message "║ R- Grafex ................. 996-2689 $- ........................ ...-.... ║" message "║ S- ........................ ...-.... %- ........................ ...-.... ║" message "║ T- ........................ ...-.... &- ........................ ...-.... ║" message "║ U- ........................ ...-.... *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "227-5416" assign s6 "Net Works Computer Emporium" gosub dial else endif find s0 "B" if found assign s8 "238-9621" assign s6 "RCPM RBBS Datatech #7 " gosub dial else endif find s0 "C" if found assign s8 "243-2370" assign s6 "Buccaneer's Harbor II " gosub dial else endif find s0 "D" if found assign s8 "244-4816" assign s6 "EBBS A&K Computers " gosub dial else endif find s0 "E" if found assign s8 "253-5216" assign s6 "AMIS Grafex " gosub dial else endif find s0 "F" if found assign s8 "258-8128" assign s6 "Ampro User's BBS " gosub dial else endif find s0 "G" if found assign s8 "262-5150" assign s6 "SJ HUG " gosub dial else endif find s0 "H" if found assign s8 "281-7059" assign s6 "RCPM RBBS Piconet #4 " gosub dial else endif find s0 "I" if found assign s8 "289-9151" assign s6 "Modem Magazine " gosub dial else endif find s0 "J" if found assign s8 "298-6930" assign s6 "AMIS IBBBS " gosub dial else endif find s0 "K" if found assign s8 "378-8733" assign s6 "RCPM RBBS DBase II " gosub dial else endif find s0 "L" if found assign s8 "735-7190" assign s6 "Public Domain Software " gosub dial else endif find s0 "M" if found assign s8 "773-9880" assign s6 "Rontech RBBS " gosub dial else endif find s0 "N" if found assign s8 "867-4455" assign s6 "Split Infinity " gosub dial else endif find s0 "O" if found assign s8 "942-6975" assign s6 "AMIS TABBS " gosub dial else endif find s0 "P" if found assign s8 "945-8358" assign s6 "North San Jose BBS " gosub dial else endif find s0 "Q" if found assign s8 "972-8164" assign s6 "Fido # 346 " gosub dial else endif find s0 "R" if found assign s8 "996-2689" assign s6 "Grafex " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "S" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "T" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "U" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "V" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "W" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "X" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "Y" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "Z" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "0" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "1" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "2" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "3" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "4" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "5" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "6" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "7" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "8" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "9" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "@" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "#" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "$" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "%" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " - " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit